home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aae.d64 / moon river (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  76 lines
  1. 100 REMROBERT LEE WOODYARD
  2. 110 REM1230 STEMWOODY DRIVE
  3. 120 REMPICAYUNE, MISSISSIPPI 39466
  4. 130 REM(601) 798-5724
  5. 140 REMRLW 5/19/84
  6. 150 S=54272:CC=53272:GOSUB 440:RS$=CHR$(PEEK(CC)):GOSUB 540:GOSUB 460
  7. 160 DIM HF(95),LF(95),X(2,6),T(2),TL(2)
  8. 170 REMSET UP FREQUENCES *****
  9. 180 FOR R=0 TO 11:D=2:READ L:FOR V=7 TO 0 STEP -1:D=.5*D:I=INT(L*D+.5)
  10. 190 N=12*V+R:HF(N)=INT(I/256):LF(N)=I-256*HF(N):NEXT V,R:PRINT"[147]";:POKECC,21
  11. 200 DATA 34334,36376,38539,40380,43258,45830,48556,51443,54502,57743,61176,64814
  12. 210 REMSETUP SOUND CHIP
  13. 220 FOR V=0 TO 2:FOR R=0 TO 6:READ X(V,R):NEXT R,V:GOSUB 420:POKE S+24,15
  14. 230 DATA 0,0,0,8,0,88,159,0,0,0,8,0,88,159,0,0,0,8,0,88,159
  15. 240 REMPLAY SONG
  16. 250 READ M,I:TS=TI:X(0,4)=33:X(1,4)=33:X(2,4)=33
  17. 260 ON I GOTO 270,280,290,300
  18. 270 READ D,T(0),A$,I:VE=0:T(1)=-1:T(2)=-1:GOSUB 320:GOSUB 380:GOTO 260
  19. 280 READ D,T(0),T(1),A$,I:VE=1:T(2)=-1:GOSUB 320:GOSUB 380:GOTO 260
  20. 290 READ D,T(0),T(1),T(2),A$,I:VE=2:GOSUB 320:GOSUB 380:GOTO 260
  21. 300 GOSUB 340:GOSUB 440:POKE CC,ASC(RS$):END
  22. 310 REMPRINT WORDS AND SET UP NOTES **
  23. 320 PRINTA$" ";:FOR V=0 TO VE:IF T(V)>=0THEN L=T(V):X(V,1)=HF(L):X(V,0)=LF(L)
  24. 330 NEXT V
  25. 340 IF TI<TS THEN 340
  26. 350 FOR V=0 TO LV:IF T(V)<>TL(V) THEN POKE S+7*V+4,X(V,4)AND 0
  27. 360 NEXT V:RETURN
  28. 370 REMTURN ON NEW NOTE
  29. 380 FOR V=0 TO 2:IF T(V)=TL(V) OR T(V)=-1 THEN 400
  30. 390 L=S+7*V:POKE L,X(V,0):POKE L+1,X(V,1):POKE L+4,X(V,4)
  31. 400 TL(V)=T(V):NEXT V:TS=TI+D*M-5:LV=VE:RETURN
  32. 410 REMSET VALUES IN SOUND CHIP *****
  33. 420 FOR V=0 TO 2:FOR R=0 TO 6:POKE S+7*V+R,X(V,R):NEXT R,V:RETURN
  34. 430 REMZERO SOUND CHIP
  35. 440 FOR L=S TO S+24:POKE L,0:NEXT L:RETURN
  36. 450 REMPRINT SONG FOR SETUP *****
  37. 460 FOR V=0 TO 34:READ I:NEXT V:FOR V=0 TO 1000:NEXT V:PRINT"[147]":POKE CC,21
  38. 470 ON I GOTO 480,490,500,510
  39. 480 READ I,I,A$,I:GOTO 520
  40. 490 READ I,I,I,A$,I:GOTO 520
  41. 500 READ I,I,I,I,A$,I:GOTO 520
  42. 510 RESTORE:RETURN
  43. 520 PRINTA$" ";:GOTO 470
  44. 530 REMPRINT TITLE *****
  45. 540 POKE CC,23:PRINT"[147]"TAB(15)"[205][207][207][206][160][210][201][214][197][210]":PRINT""TAB(19)"BY"
  46. 550 PRINT""TAB(14)"[202]OHNNY [205]ERCER":PRINT""TAB(18)"AND"
  47. 560 PRINT""TAB(14)"[200]ENRY [205]ANCINI":RETURN
  48. 570 DATA 18, 2,2,55,36,"MOON",2,2,55,43,,2,2,55,48,,3,2,62,52,45,"RIV -",3,4
  49. 580 DATA 60,52,45,"ER,",2,2,59,41,"WID",2,1,59,45,"-",2,1,57,45,"ER",2,1,55,35
  50. 590 DATA "THAN",2,1,53,35,"A",2,2,55,40,"MILE;",2,2,55,43,,1,2,48,"I'M",2,2
  51. 600 DATA 59,41,"CROSS",2,1,59,45,"-",2,1,57,45,"IN'",2,1,55,48,"YOU",2,1,53,48
  52. 610 DATA "IN",2,2,55,40,"STYLE",2,2,55,43,,1,2,48,"SOME",2,2,50,35,"DAY.",2,2
  53. 620 DATA 50,41,,2,2,50,45,,3,2,50,44,40,,3,2,50,45,40,,2,2,52,47,"[157][157][157][157]OLD",1
  54. 630 DATA 2,48,"DREAM",2,2,48,40,,2,2,48,47,,3,2,55,46,36,"MAK -",3,3,52,46,36
  55. 640 DATA "ER,",3,1,50,46,36,"YOU",1,2,48,"HEART",2,2,48,36,,2,2,48,45
  56. 650 DATA "      ",3,2,55,44,34,"BREAK",3,3,52,44,34,"- ER.",3,1,50,44,34
  57. 660 DATA "WHER -",2,2,48,45,"EV -",2,2,52,45,"ER",2,2,55,43,"YOU'ER",3,2,60,52
  58. 670 DATA 45,"GO",3,3,59,50,45,"- IN',",3,1,57,45,35,"I'M",3,2,59,50,43
  59. 680 DATA "GO -",3,3,57,49,41,"IN'",3,1,55,49,41,"YOUR",3,2,57,48,41
  60. 690 DATA "WAY.      ",3,4,57,47,41,,2,2,55,40,"TWO",2,2,55,43,,2,2,55,48,,3,2
  61. 700 DATA 62,52,45,"DRIFT",3,4,60,52,45,"- ERS",2,2,59,41,"OFF",2,1,59,45,,2,1
  62. 710 DATA 57,45,"TO",2,1,55,35,"SEE",2,1,53,35,"THE",2,2,55,40,"WORLD",2,2,55
  63. 720 DATA 43,,1,2,48,"[157]THERE'S",2,2,59,41,"SUCH",2,1,59,45,,2,1,57,45,"A",2,1
  64. 730 DATA 55,48,"LOT",2,1,53,48,"OF",2,2,55,40,"WORLD",2,2,55,43,,1,2,48,"TO",2
  65. 740 DATA 2,50,35,"SEE",2,2,50,41,,2,2,50,45,,3,2,50,44,40,,3,2,50,45,40,,2,2
  66. 750 DATA 52,47,,1,2,48,"[157][157]WE'RE",2,2,48,47,"AF",2,2,48,46,"-",2,2,52,45,,2,2
  67. 760 DATA 52,44,"TER",2,2,55,43,"THE",3,6,60,52,42,"SAME",3,4,62,51,41,"RAIN",3
  68. 770 DATA 2,60,51,41,"- BOW'S  ",2,2,55,40,"END",2,2,55,43,,2,2,55,48,,2,2,55
  69. 780 DATA 41,,2,1,59,45,"WAIT -",2,1,57,45,"IN'",2,1,55,48,"ROUND",2,1,53,48
  70. 790 DATA "THE",2,2,55,40,"BEND",2,2,55,43,,2,2,55,48,,2,1,55,41,,2,1,48,41
  71. 800 DATA "    MY",2,1,59,45,"HUCK -",2,1,57,45,"LE -",2,1,55,48,"BER -",2,1
  72. 810 DATA 53,48,"RY",2,2,55,40,"FRIEND",2,2,55,43,,2,2,55,47,,2,2,48,45
  73. 820 DATA "       MOON",2,2,48,44,,2,2,48,43,,2,2,53,38,"RIV -",2,2,50,38,"ER"
  74. 830 DATA 2,2,50,45,,3,4,50,47,41,,3,2,52,47,43,"AND",2,2,48,36,"ME",3,2,48,47
  75. 840 DATA 43,,3,2,48,45,41,,3,6,52,43,36,,4
  76.